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hile working on a database project that required us to exchange data with a 

non-SQL database and spreadsheet, we discovered many interesting — if 
not funny — obstacles to overcome. Of course, the main obstacle is that Oracle 
Power Objects 1.0 (OPO) and its Blaze database don’t provide tools for import- 
INg or exporting data between different databases. 


So we created a class for exporting and 
importing data — from both Blaze and 
Oracle7 databases — using OPO. Major 
problems in creating the export/import 
class included the differences in the system 
tables between the Oracle7 and Blaze 
databases, how to capture the session with 
the table to be exported, and working 
around several OPO bugs. 


In this article we'll exhibit how to create 
a Button class and an Export class form 
for exporting table data. The Button 
class, placed on an application’s form, 
opens the Export class form like a dialog 
window. We'll also explain how to work 
around and resolve the previously men- 
tioned difficulties. 


Note that you could simply create the 
Export class portion of this example, place 
it in a library, then place it on any form 
for the application for which you want to 
export associated table data. If you choose 
to do this, however, be aware that an 
OPO bug prevents this example from 
working in Run Form mode unless you 
compile the application (OPO can’t find 
the DefaultSession for the application). 


Creating the Export Class 

The Export class consists of a text field 
for entering the name of the export text 
file, three pop-up list controls (for set- 


ting the text delimiter type, the type of 
database from which the data will be 
exported, and the application’s default 
session's tables, respectively), and Export 
and Cancel buttons. 


Creating the fldFileName text field. Enter 
the name of the file you want to contain the 
exported data into this field. 


Setting the Translation property of the 
pop Table pop-up list. We attempted to 
create a field where you could enter the 
session name of the destination table. 
Unfortunately, there is a bug in OPO that 
wont allow you to change the Translation 
property of a pop-up list at run time 
using the =AT session syntax. 
Therefore, you must use an application in 
which you have preset the DefaultSession 
to the desired session. 


Note that a table named user_tables is 
automatically generated whenever an 
Oracle7 or Blaze database is created. 
This table contains the names of all user- 
defined tables in the database. Therefore, 
we can display a list of all tables in the 
database session by setting the 
Translation property of the popTable 
list as follows: 


=SELECT table name, 
FROM user_tables 


table name & 
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Setting the Translation property of the popDelim 
pop-up list. This pop-up list gives users a simple way to 
select the data field delimiter as each record is written 
to the file. We have included only two delimiters: a tab 
or comma. 


Enter the following code in the Translation property of 
the popDelim pop-up list to display the words Tab and 
Comma in the list, but not to enter the actual tab and 
comma characters in the file. 


"Tab" = Tab 
"Comma" = , 


Setting the Translation property of the popDBase pop- 
up list. This pop-up list allows users to select the database 
type from which the data will be exported. Because the 
system data is stored differently in Oracle7 and Blaze 
databases, the database type must be specified by the user. 


We have included the two most common databases used 
with OPO: Oracle7 and Blaze. Enter the following code 
in the Translation property of the popDelim pop-up list 
to display the words Oracle and Blaze in the list. Then 
set it to a text field from which the Export button method 
will determine which type of database is being accessed. 


"Oracle" = ORACLE 
"Blaze" = BLAZE 


The Cancel Button 

As with most applications, youll want to include the ability 
to abort the operation. Create a button at the bottom of the 
class. Set the button’s Label property to Cancel and the 
Name property to btnCancel. Add the following line of code 
to the Click method to close the form on which it is placed: 


GetTopContainer() .CloseWindow( ) 


The Export Button 

The Export button is where all the action occurs; all the 
code for exporting the selected table’s data is entered in 
the Click method of the button. The code gathers 
information about the selected table from the system 
database files and other objects in the class (such as the 
file name), creates a file on disk to contain the exported 
data, and exports the data from the selected table. 


To explain the Click method’s code, let’s break it into sec- 
tions. (Note that to reduce the amount of code for this 
article we have removed all error checking and data valida- 
tion from the code in the Click method, e.g. there is no 
code identifying that the file name, table name, database 
type, or delimiter type have been set.) 


Fixed-length variable declarations. ‘The variables, 
vNumCols and vNumRows, contain the number of columns 
and rows in the selected table. The selected table is stored 
in vTableName. The name of the file to be created is con- 
tained in vFileName. The number it will be referenced 


with is stored in vFileNum. The database type is stored in 
vDBType, the delimiter in vDelim, the session name in 
vSessObj, the write string in vOutString, and the 
recordset object name is stored in vRecObj. 


DIM vNumCols AS Long 
DIM vNumRows AS Long 
DIM vFileNum AS Integer 
DIM vDBType AS String 
DIM vFileName AS String 
DIM vTableName AS String 
DIM vDelim AS String 
DIM vOutString AS String 
DIM vSessObj AS Object 
DIM vRecObj AS Object 


The recordset object contains all the selected table’s data. 


Declaring variable-length variables. Since each table will 
potentially have a different number of columns from 
which you need to collect information, several variables 
must be redimensioned: 


REDIM vColNames(1), vColTypes(1) AS String 
REDIM vColPos(1), vOrder(1) AS Integer 


Three of the variables contain table column informa- 
tion retrieved from the system tables: vColNames con- 
tains the names of the columns; vColTypes contains 
the data type of each column; and vColPos contains 
the column’s position in the table. To ensure the infor- 
mation to be exported is in the same order as the data 
is stored in the database, use the variable vOrder. 


The size of all the variables will be determined later. 


Setting the variable’s values, setting the cursor, and open- 
ing the file. Get the input data set in the input fields of the 
clsExportTable class and the session from which the table 
pop-up is populated. Next, set the cursor to an hourglass to 
let the user know that something is happening. 


Then use the following code to open the file to write 
the data: 


vTableName = popTables.value 


vFileName = fldFileName.value 
vDBType = popDBase.value 
vSessObj = & 


clsExportTable.popTables.GetRecordSet().GetSession() 


REM Normally performed after error checking. 
Application.SetCursor(1) 


vFileNum = FreeFile() 
OPEN vFileName FOR OUTPUT ACCESS WRITE AS vFileNum 


Retrieving and setting column information. Because 
Oracle7 and Blaze databases store the column data in sys- 
tem tables with different names, you need to identify the 
database when retrieving data. Based on the database type, 
you can properly retrieve the number of columns in the 
selected table. This number (vNumCols) is then used to 
resize the arrays to suit the data. 
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IF vDBType = "ORACLE" THEN 
EXEC SQL AT :vSessObj & 
SELECT COUNT(*) INTO :vNumCols & 
FROM user_tab columns & 
WHERE table name = :vTableName 
ELSEIF vDBType = "BLAZE" THEN 
EXEC SQL AT :vSessObj & 
SELECT COUNT(*) INTO :vNumCols & 
FROM SYS.ALL_ COLUMNS AC, SYS.ALL_ OBJECTS AO & 
WHERE UPPER(AO.name) = UPPER(:vTableName) & 
AND AO.ID = AC.ID 
END IF 


REM Resize arrays to number of columns in table. 
REDIM vColNames(vNumCols) 

REDIM vColPos(vNumCols) 

REDIM vColTypes(vNumCols ) 

REDIM vOrder(vNumCols) 


REM Based on database type, get the column names, 
REM position, and data types from the appropriate 
REM system tables. 

IF vDBType = "ORACLE" THEN 


EXEC SQL AT :vSessObj & 

SELECT COLUMN NAME, COLUMN_ID, DATA_TYPE & 
INTO :vColNames,:vColPos, :vColTypes & 
FROM USER_TAB COLUMNS & 

WHERE TABLE NAME = :vTableName 
ELSEIF vDBType = "BLAZE" THEN 
EXEC SQL AT :vSessObj & 
SELECT col_name, col_id, AC.type & 
INTO :vColNames,:vColPos, :vColTypes & 
FROM SYS.ALL_COLUMNS AC, SYS.ALL_ OBJECTS AO & 
WHERE UPPER(AO.name) = UPPER(:vTableName) & 


AND AO.ID = AC.ID 
END IF 


REM Used to set the column position. 

FOR i = O TO vNumCols - 1 
vOrder(vColPos(i)-1) = i 

NEXT i 


REM Get the delimiter (tab or comma). 
vDelim = popDelim. value 
IF vDelim = "Tab" THEN 
vDelim = CHR$(Q9) 
END IF 
IF ISNULL(vDelim) THEN 
vDelim = CHR$(Q9) 
END IF 


REM Put column names 
REM into a string. 
vOutString = vColNames(vOrder (0) ) 
FOR i = 1 TO vNumCols - 1 
j = vOrder (i) 
IF vColTypes(j) = "LONG RAW" OR & 
vColtypes(j) = "6" THEN 
MSGBOX "Cannot export Long Raw column " 
ELSE 
vOutString = vOutString+vDelim+vColNames(j) 
END IF 
NEXT i 


(excluding the long raw columns) 


+ vColNames (j) 


REM Write column names to file. 
PRINT #vFileNum, vOutString 


Figure 1 (Top): This Oracle Basic code uses vColPos and vOrder 
to ensure data is written to the destination file in the same order as 
it was stored in the database table. 

Figure 2 (Bottom): This code writes the data to the destination file. 
Note that it checks for data of Long Raw data type and does not 
write it out. 


REM Create the recordset from which the data 
REM will later be exported. 
vRecObj = NEW DBRecordset(vSessOb] ) 


REM Create command string to select table data 
REM (excluding long raw columns). 
vOutString = "SELECT " + vColNames(vOrder (0) ) 
FOR i = 1 TO vNumCols - 1 

j = vOrder(i) 


IF vColTypes(j) <> "LONG RAW" AND & 
vColtypes(j) <> "6" THEN 
vOutString = vOutString + "," + vColNames(j) 
END IF 
NEXT i 


vOutString = vOutString + " FROM " + vTableName 
REM Load the created record set with the table data. 
vRecObj .SetQuery(vOutString, False) 


vRecObj .ReQuery() 


REM Make sure all the data is retrieved from the table. 
vRecObj .FetchAllRows ( ) 


REM Get the number of rows retrieved. 
vNumRows = vRecObj .GetRowCount ( ) 


REM For each row, get the data values by column name 
REM for each column and convert the data to a string. 
REM Add the data to the output string, and write 
REM output string to the file. 
FOR i = 1 to vNumRows 
vRecObj .SetCurRow(i) 
vOutString=cstr(vRecObj .GetColVal(vColNames(vOrder (0) ) )) 
FOR k = 1 to vNumCols - 1 
j = vOrder(k) 


IF vColTypes(j) <> "LONG RAW" AND & 
vColTypes(j) <> "6" THEN 
vOutString = vOutString + vDelim + & 
cstr(vRecObj .GetColVal(vColNames(j) )) 
END IF 
NEXT k 
PRINT #vFileNum, vOutString 
NEXT i 


REM Close the file, delete the recordset, 

REM and return the cursor to the pointer. 

CLOSE #vFileNum 

DELETE vRecObj 

MSGBOX "Finished exporting " 
" to " + vFileName 

Application.SetCursor (0) 


+ vTableName + & 


Figure 3: To populate the recordset use the SELECT statement to 
retrieve the desired data from the selected table. 


Oracle does not guarantee column data will be retrieved 
in the same order as defined in the table, so use the col- 
umn position (vColPos) and order (vOrder) to ensure 
that data is written in the same order as it is stored in the 
table (see Figure 1). 


Writing out the column header row. The first part of the 
code in Figure 2 properly sets the vDelim variable to the 
appropriate Tab character if the variable is set to “Tab”, or 
does not contain a value. Based on the text delimiter, you 
can now start to write out the names of the columns to 
the first row of the file. 


You need to avoid writing certain types of data to a text 
file. Therefore, the example in Figure 2 checks for the 
Long Raw data type and does not write it out. 
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Writing out the column data. Create a 
new recordset (vRecObj) that will con- 
tain all the data (excluding Long Raw or 
any other data types you don't want 
exported) from the table selected for 
export. You do this with a DBRecordset 
statement that creates a new recordset 
for the session. To populate the record- 
set, you must use the SQL SELECT 
command to retrieve the desired data 
from the selected table (see Figure 3). 


The clsExportTable class is now com- 
plete. It can be placed directly in an 
application form, but it will take up a 
lot of real estate. Therefore, create a sep- 
arate form on which the 
clsExportTable will be placed. This 
makes the export function act as a dialog 
box when a button is added to a form to 
open the export form. 


Figure 4 shows the completed 
clsExporttTable class. 


Create the Export Form 

Create a new form and drag the 
clsExportTable class onto the form. Set 
the form’s Label property to Export Form 
and the Name property to 
frmExportForm. To make the form a dia- 
log box, set its WindowStyle property to 
Standard Dialog. 


Creating the Export Class Button 

Now create a class, clsExportButton, 
that will contain a button for opening 
the frmExportForm form. This class can 
then be copied onto any application form 
for exporting data from a table in the 
application’s default session. 


Create a class and add a button to the 


class. Set the button’s Label property to Export and its 
Name property to clsExportButton. Finally, add the 


statement: 


frmExportForm.OpenWindow( ) 


to the Click method to open the form containing the export 


object (see Figure 5). 


An Example 
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Figure 4 (Top): The clSExportTable class. 
Figure 5 (Bottom): The clSExport button. 
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To illustrate the use of the export pieces, copy the 


clsExportButton class, the clsExportTable class, and 
the frmExportForm form to the Book Entry application 


window. Then create an instance of the class by dragging 
the clsExportButton class onto the application’s Book 


Entry form (see Figure 6). 


completed export form. 


Conclusion 


Figure 7 shows the Book Entry form running with the 


All the pieces are now in place. Everything necessary for 
exporting table data from either a Blaze or Oracle7 table 
from an application with the DefaultSession set to a session 
referencing the desired table is ready to go. 


So there you have it. Oracle Power Objects may have its 
peccadilloes, but it also offers the tools to overcome 

them — in this case, its support for true, reusable class- 
es. Using this feature, we have not only met an immedi- 
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Figure 6: The ClSExport button on an example form. 
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In a future article, we'll explain 
how to add an Import button to 
the Export class to import text 

files into Oracle7 and Blaze 
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Figure 7: The completed 
Entry Form example at 
run time, with the Export 
Form displayed. 





The demonstration objects referenced in this article are 
available for download from the Informant Web page 
(http:/hwww.informant.com) or the Informant Forum on 
CompuServe (GO ICGFORUM). Library 19: Oracle. 
File name: OIL9607BK.ZIP 
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